-- background: 2663 from stack: in.3 -- bmap block id: 9059 -- flags: 4000 -- background id: 0 -- name: ----- HyperTalk script ----- on openCard -- PUT CARD INFORMATION INTO THE FIELD "CARD DESCRIPTION" put "Card" && the number of this card && "of" && the number of cards into background field "Card Description" NumberOfCards -- SET THE NAMES OF PREVIOUS AND NEXT BUTTONS (ID 1 AND 6) TO: put "Card" && the number of this card into NewPrevName put "of" && the number of cards into NewNextName set the name of background button ID 1 to NewPrevName set the name of background button ID 7 to NewNextName Set userLevel to 2 end openCard -- part 1 (button) -- low flags: 00 -- high flags: A000 -- rect: left=397 top=293 right=339 bottom=452 -- title width / last selected line: 0 -- icon id / first selected line: 1016 / 1016 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Card 1 ----- HyperTalk script ----- on mouseDown visual effect scroll right --go to previous card go to previous card of this background end mouseDown on mouseStillDown mouseDown end mouseStillDown -- part 7 (button) -- low flags: 00 -- high flags: A000 -- rect: left=451 top=293 right=339 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 32650 / 32650 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: of 20 ----- HyperTalk script ----- on mouseDown visual effect scroll left --go to next card go to next card of this background end mouseDown on mouseStillDown mouseDown end mouseStillDown -- part 8 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=4 top=323 right=339 bottom=171 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Card Description ----- HyperTalk script ----- -- See the openCard command located under the script for this background -- part 9 (field) -- low flags: 00 -- high flags: 6004 -- rect: left=7 top=21 right=320 bottom=262 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 12 -- part name: Item Description -- part 10 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=272 top=293 right=330 bottom=314 -- title width / last selected line: 0 -- icon id / first selected line: 14767 / 14767 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Home ----- HyperTalk script ----- on mouseUp Visual effect iris close to black Visual effect wipe down to gray Visual effect iris open go to card "StartCard" end mouseUp -- part 11 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=351 top=293 right=330 bottom=397 -- title width / last selected line: 0 -- icon id / first selected line: 1011 / 1011 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Home ----- HyperTalk script ----- on mouseUp if the commandkey is down then doMenu "Quite HyperCard" else go home end if end mouseUp -- part 12 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=313 top=293 right=330 bottom=352 -- title width / last selected line: 0 -- icon id / first selected line: 8538 / 8538 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SuperFind: Version 1.1 ----- HyperTalk script ----- on copyright -- Super Find, Copyright by Mac Help Co., January 1988 -- by Chris Hostetter, Mac Help Co., 1800 East Market Street -- Long Beach, CA 90805, (213) 428-7414 -- The script for this button is copyrighted and may not be -- used without the written permission of the author (above). -- SHAREWARE COST IS $ 3.00 (for personal stacks). -- WRITE AUTHOR FOR STACKS TO BE DISTRIBUTED WITH THIS SCRIPT. end copyright on mouseUp Global LastField, OncePerCard Global SuperFindName, SearchCommands, Searchstring, SearchStart Global SearchTimesFound, FindType, OriginalID get the selection if it is not empty then put it into SearchString put the name of the target into SuperFindName set hilite of SuperFindName to true put "Chars" into FindType put empty into SearchLimit ask "Find Word(s)? Hold option key for limits." with SearchString set hilite of SuperFindName to false if it is empty then put 0 into searchtimesfound exit mouseUp end if put it into SearchString if SearchString is "Date" then --answer "Find the word 'Date' or Enter a Date?" with "Find Word" or "Enter" put "Enter" into it if it is "Enter" then put the short date into it ask "Enter date you wish to find? I.e. (0/0/00)" & Return & Return & "Today's Date is: " && the long date with it if it is empty then exit mouseUp put it into SearchString answer "Search for '" & SearchString & "' in what format?" with "Seconds" or "Long Date" or "Short Date" put it into DateType if SearchString contains "T" then put the short date into SearchString end if if DateType is "Seconds" then convert SearchString to Seconds if DateType is "Long Date" then convert SearchString to Long Date if DateType is "Short Date" then convert SearchString to Short Date end if end if put false into OncePerCard if the OptionKey is down then if LastField is not empty then put LastField into ShortLastField delete word 1 of ShortLastField delete word 1 of ShortLastField Answer "Search for information in what field?" with "Cancel" or ShortLastField or "Any Field" if it is "Cancel" Then exit mouseUp end if if it is ShortLastField then put " in " & LastField into SearchLimit else put "" into SearchLimit end if end if Answer "Find " & FindType & " '" & Searchstring & "'" with "Begins With" or "Full Word" or "These Chars" if it is "Begins with" then put empty into FindType if it is "Full Word" then put "Word" into FindType if it is "These Chars" then put "Chars" into FindType answer "Find string only one time per card?" with "1 per card" or "ALL" if it is "1 per card" then put true into OncePerCard end if -- the optionKey segment put "Find" && FindType && Quote & SearchString & Quote & SearchLimit into SearchCommands set loc of message box to 20,-50 put "Send DoSearch to" && SuperFindName into the message box hide message box set loc of message box to 20,300 put the ID of this Card into OriginalID put 0 into SearchTimesFound do message box end mouseUp on "DoSearch" Global SuperFindName, SearchCommands, Searchstring, SearchStart Global SearchTimesFound, FindType, LastCardID, ManyCards, OriginalID Global OncePerCard if SearchTimesFound is 0 then -- initialize variables put False into ManyCards put the ID of this card into LastCardID end if if OncePerCard is true then go to next card do SearchCommands if the result is "Not Found" then beep put 0 into SearchTimesFound answer "Can't Find:" && FindType && "'" & SearchString & "'" with "Cancel" or "Re-Search" if it is "Re-Search" then click at the loc of SuperFindName exit "DoSearch" end if if SearchTimesFound is 0 then put the ID of this card into SearchStart put the ID of this card into LastCardID end if if the ID of this card is not LastCardID then put True into ManyCards put the ID of this card into LastCardID end if if ManyCards is True and SearchTimesFound > 0 then if the ID of this card is SearchStart then beep wait 60 if the ID of this card is not OriginalID then answer SearchTimesFound && "Occourance(s) of" && FindType && "'" & SearchString & "'" with "Return" or "Cancel" or "Re-Search" else answer SearchTimesFound && "Occourance(s) of" && FindType && "'" & SearchString & "'" with "Cancel" or "Re-Search" end if if it is "Re-Search" then click at the loc of SuperFindName if it is "Return" then go to OriginalID put 0 into SearchTimesFound exit "DoSearch" end if end if add 1 to SearchTimesFound end "DoSearch"